home *** CD-ROM | disk | FTP | other *** search
/ Mac Magazin/MacEasy 2 / Mac Magazin and MacEasy Magazine CD - Issue 02.iso / Sharewarebibliothek / Applikationen / Alpha.5.81 folder / Tcl / SystemCode / appleEvents.tcl < prev    next >
Text File  |  1994-06-15  |  478b  |  21 lines
  1.  
  2. # make alias list to pass to AEBuild
  3. proc makeAlis {name} {
  4.     concat {[alis(«} [coerce TEXT $name -x alis] {»)]}    
  5. }
  6.  
  7.  
  8.  
  9. # Queued replies are passed through AEPrint and then to this routine.
  10. proc handleReply {rep} {
  11.     global ALPHA lastReply
  12.     switchTo $ALPHA
  13.     set lastReply $rep
  14. }
  15.  
  16.  
  17. # Return an object record specifying the desired think project file.
  18. proc fileObject {name} {
  19.     join [concat {obj\{want:type('SFIL'), from:'null'(), form:'name', seld:“} [file tail $name] {”\}}] ""
  20. }
  21.